home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tk8.0 / tests / all next >
Encoding:
Text File  |  1997-08-15  |  1.2 KB  |  58 lines  |  [TEXT/ALFA]
  1. # This file contains a top-level script to run all of the Tcl
  2. # tests.  Execute it by invoking "source all" when running tclTest
  3. # in this directory.
  4. #
  5. # SCCS: @(#) all 1.23 97/08/06 18:50:18
  6.  
  7. switch $tcl_platform(platform) {
  8.     "windows" {
  9.     # Tests that cause tk to crash under windows.
  10.     set crash {}
  11.  
  12.     # Tests that fail under windows.
  13.  
  14.     set fail { grid.test }
  15.  
  16.     if {! [info exist exclude] } {
  17.         set exclude [string tolower "$crash $fail"]
  18.     }
  19.     }
  20.     "macintosh" {
  21.     set x [pwd]
  22.     cd $tk_library
  23.     set tk_library [pwd]
  24.     cd $x
  25.     
  26.     # Tests that cause tk to crash under mac.
  27.     set crash {}
  28.  
  29.     # Tests that fail under mac.
  30.     set fail {bind.test entry.test send.test textDisp.test}
  31.     
  32.     set exclude [string tolower "$crash $fail"]
  33.     }    
  34.     "unix" {
  35.     set exclude ""
  36.     }
  37. }
  38.  
  39. if {$tcl_platform(os) == "Win32s"} {
  40.     set tests [lsort [glob *.tes]]
  41. } else {
  42.     set tests [lsort [glob *.test]]
  43. }
  44.  
  45. foreach i $tests {
  46.     if [string match l.*.test $i] {
  47.     # This is an SCCS lock file;  ignore it.
  48.     continue
  49.     }
  50.     if [lsearch $exclude [string tolower $i]]>=0 {
  51.     # Do not source this file; it exercises a known bug at this time.
  52.     puts stdout "Skipping $i"
  53.     continue
  54.     }
  55.     puts stdout $i
  56.     source $i
  57. }
  58.